home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / exkey4.arc / EXKEY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-27  |  977 b   |  38 lines
  1. UNIT ExKey;
  2.  
  3. { Unit to make F11 and F12 keys on extended keyboards usable with Turbo
  4.   Pascal
  5.  
  6.   (c) Copyright Aubrey Scoon (Scoon Consultancy Services) 1990
  7.  
  8. }
  9.  
  10. INTERFACE
  11.  
  12. PROCEDURE SetKeyVector;
  13. PROCEDURE RestoreKeyVector;
  14.  
  15. FUNCTION Ext_Keyboard_Present : boolean;
  16.  
  17. { Returns boolean flag TRUE or FALSE depending on whether an extended
  18.   keyboard is present or not
  19.  
  20.   WARNING: If you make the use of SetKeyVector conditional using the
  21.        above flag you must also do the same with RestoreKeyVector, in
  22.            other words if you have run SetKeyVector, you MUST run
  23.        RestoreKeyVector before leaving otherwise your system will
  24.        crash. You do not need to make the vector routine conditional
  25.        anyway, they will autodetect the presence of an enhanced
  26.        keyboard by themselves.
  27. }
  28.  
  29. IMPLEMENTATION
  30.  
  31. {$L EXTKEY}
  32.  
  33. PROCEDURE SetKeyVector; external;
  34. PROCEDURE RestoreKeyVector; external;
  35. FUNCTION Ext_Keyboard_Present; external;
  36.  
  37. END.
  38.